home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
systems
/
vm-cms
/
texshell
/
xspytex.xedit
< prev
Wrap
Text File
|
1993-09-27
|
555b
|
15 lines
/**== 13 XSPYTEX XEDIT ===============================OF BIU====**
Insert TEX commands by PK-keys.
**==============================================================**/
EXTRACT @CURSOR @LSCREEN
IF CURSOR.3 = '-1' THEN DO; MSG 'CURSOR OUT OF FILE'; EXIT; END
'SET SCREEN WIDTH' LSCREEN.6-45 '45'
'SOS TABCMDF 1'
'XEDIT $$NO$$ $$NO$$ A (PROFILE PROFYPTX'
'CURSOR HOME'
'GLOBALV SELECT XXEDSCR GET PFF'
IF PFF/=3 THEN CALL 'PROFYTX' PFF
'GLOBALV SELECT XXEDSCR PURGE'
EXIT
/**==============================================================**/